home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir36 / alrmck29.zip / ACINST.CMD next >
OS/2 REXX Batch file  |  1993-09-16  |  4KB  |  131 lines
  1. /* */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4. call SysCls
  5. pos = SysCurPos(5,0)
  6. say 'Enter the target drive and directory then press <ENTER>'
  7. PULL targdrv
  8. say ' '
  9. say 'Enter the source drive and directory then press <ENTER>'
  10. PULL srcepath
  11. say ' '
  12. say 'Installing Alarm Clock in 'targdrv
  13. call STARTINSTALL
  14. call INSTALRMCLK
  15. if UpGrade = 1 then call DBUPGRADE
  16. say ' '
  17. say '┌───────────────────────────────────────────┐'
  18. say '│                                           │'
  19. say '│       Alarm Clock INSTALLED               │'
  20. say '│                                           │'
  21. say '│ Be sure that the selected directory is in │'
  22. say '│ your LIBPATH= statement or .\ is in the   │'
  23. say '│ LIBPATH.  See your CONFIG.SYS file.       │'
  24. say '│                                           │'
  25. say '└───────────────────────────────────────────┘'
  26. exit
  27.  
  28.  
  29.  
  30.  
  31.  
  32. STARTINSTALL:
  33.    call SysFileTree srcepath, 'file', 'D'
  34.    if file.0 = 0 then do
  35.        say 'Incorrect diskette in drive 'srcepath
  36.        exit
  37.        end
  38.  
  39.    call SysFileTree targdrv, 'file', 'D'
  40.    if file.0 = 0 then do
  41.       UpGrade = 0
  42.       call CREATEPATH
  43.       end  /* Do */
  44.    else
  45.       UpGrade = 1
  46. return /* STARTINSTALL */
  47.  
  48.  
  49. INSTALRMCLK:
  50.    "@echo off"
  51.    copy srcepath'\*.* 'targdrv
  52.    settings='PROGTYPE=PM;EXENAME='targdrv'\ALRMCLK2.EXE;OBJECTID=<ALRMCLK2>;STARTUPDIR='targdrv
  53.    call SysCreateObject 'WPProgram', 'Alarm Clock', '<WP_DESKTOP>', settings, 'REPLACE'
  54.    echo on
  55. return
  56.  
  57. DBUPGRADE:
  58.    do I = 1 to 5 by 1
  59.       say ' '
  60.       say 'Do you want ACINST to run the Database Upgrade Utility?'
  61.       say 'Press Y for yes or N for no'
  62.       rc = SysGetKey()
  63.       say ' '
  64.       say ' '
  65.       select
  66.           when rc = 'Y' then do
  67.                targd = substr(targdrv, 1, 2)
  68.                Lngth = length(targdrv)
  69.                Lngth = Lngth - 2
  70.                targp = substr(targdrv, 3, Lngth)
  71.                targd
  72.                cd targp
  73.                "apupgrad"
  74.                return
  75.              end  /* Do */
  76.           when rc = 'y' then do
  77.                targd = substr(targdrv, 1, 2)
  78.                Lngth = length(targdrv)
  79.                Lngth = Lngth - 2
  80.                targp = substr(targdrv, 3, Lngth)
  81.                targd
  82.                cd targp
  83.                "apupgrad"
  84.                return
  85.              end  /* Do */
  86.           when rc = 'N' then return
  87.           when rc = 'n' then return
  88.           otherwise beep(454, 100)
  89.       end  /* select */
  90.    end /* do */
  91. return
  92.  
  93.  
  94. CREATEPATH:
  95.  
  96.    do I = 1 to 5 by 1
  97.       say ' '
  98.       say 'Press Y to create the directory 'targdrv
  99.       say 'Press N to end the install'
  100.       rc = SysGetKey()
  101.       say ' '
  102.       say ' '
  103.       select
  104.           when rc = 'Y' then do
  105.               rc = SysMkDir(targdrv)
  106.               if rc \= 0 then do
  107.                   say 'Error Creating 'targdrv
  108.                   say 'Install Ended unsuccessfully'
  109.                   beep(454, 100)
  110.                   exit
  111.                   end
  112.               leave
  113.           end  /* Do */
  114.           when rc = 'y' then do
  115.               rc = SysMkDir(targdrv)
  116.               if rc \= 0 then do
  117.                  say 'Error Creating 'targdrv
  118.                  say 'Install Ended unsuccessfully'
  119.                  beep(454, 100)
  120.                  exit
  121.                  end
  122.               leave
  123.           end  /* Do */
  124.           when rc = 'N' then leave
  125.           when rc = 'n' then leave
  126.           otherwise beep(454, 100)
  127.       end  /* select */
  128.    end /* do */
  129.  
  130. return /* CREATEPATH */
  131.